home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Extravaganza - Disc 4
/
Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso
/
cad
/
dimf.zip
/
TST.LSP
< prev
Wrap
Lisp/Scheme
|
1990-12-03
|
410b
|
20 lines
(defun c:tst (/ SS N I E1 S1 S12 E2 TH)
(setq ss (ssget))
(setq st (getstring "\nEnter New Text Style: "))
(setq n (sslength ss))
(setq i 0)
(repeat n
(setq e1 (entget (ssname ss i)))
(setq i (+ i 1))
(setq s1 (assoc 0 e1))
(if (= "TEXT" (cdr s1))
(progn
(setq s12 (assoc 7 e1))
(setq e2 (subst (cons 7 ST) s12 e1))
(entmod e2)
)
)
)
(princ)
)